﻿<%@ import Namespace="System.Threading" %> 
<script runat="server" Language="vb"> 
    'Sub Application_OnStart(ByVal sender As Object, ByVal e As EventArgs)
        
    '    Dim autoEvent As New AutoResetEvent(False)

    '    ' Create an inferred delegate that invokes methods for the timer.
    '    Dim tcb As TimerCallback = AddressOf doPublish
        
    '    Dim ti As Timer = New Timer(tcb, autoEvent, 1000, 1000)


    'End Sub

    'Sub doPublish(ByVal o As Object)
    '    Application("dt") = Now
        
    'End Sub

</script>

